home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g02.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
1KB
|
48 lines
100 ' G02 T.WAKAMATSU
110 CLS:PI=3.14159!:L=1:M=1
120 C(1)=2:C(2)=3:C(3)=6:C(4)=4:C(5)=5:C(6)=1:C(7)=7
130 FOR E=1 TO 3
140 IF E=3 THEN GOSUB *HENKO
150 S=0:T=0
160 FOR K=1 TO 7
170 FOR X=K TO 14-K
180 Y=K:GOSUB *KAKU
190 NEXT X
200 IF K=7 GOTO 320
210 FOR Y=K+1 TO 14-K
220 X=14-K:GOSUB *KAKU
230 NEXT Y
240 FOR X=13-K TO K STEP -1
250 Y=14-K:GOSUB *KAKU
260 NEXT X
270 FOR Y=14-K TO K+1 STEP -1
280 X=K:GOSUB *KAKU
290 NEXT Y
300 GOSUB *KAITEN
310 L=L+1:IF L=8 THEN L=1
320 NEXT K
330 FOR D=1 TO 5000:NEXT
340 NEXT E
350 GOTO 560
360 *KAKU
370 X1=X*35+S+70
380 Y1=Y*35-T-25
390 X2=X*35+T+70+28
400 Y2=Y*35+S-25
410 X3=X*35-S+70+28
420 Y3=Y*35+T-25+28
430 X4=X*35-T+70
440 Y4=Y*35-S-25+28
450 CONNECT(X1,Y1)-(X2,Y2)-(X3,Y3)-(X4,Y4)-(X1,Y1),%C(L)
460 PAINT((X1+X3)/2,(Y1+Y3)/2),%C(L)
470 RETURN
480 *KAITEN
490 F=K*PI*5/180+PI/4
500 S=23/2*SQR(2)*(COS(PI/4)-COS(F))
510 T=23/2*SQR(2)*(SIN(F)-COS(PI/4))
520 RETURN
530 *HENKO
540 FOR I=1 TO 7:C(I)=0:NEXT I
550 RETURN
560 CLS